/***********************************************
Figure D5: Respondents Do Not Believe Post-Brexit Prices are Changing as a function of Property Wealth (BoE Sample)
***********************************************/

gen home_price_change = 1 if hpexp1 == "Decrease by 1%-4.9%" | hpexp1 == "Decrease by 10%-20%" | hpexp1 == "Decrease by 5%-9.9%" | hpexp1 == "Decrease by more than 20%" // decrease
replace home_price_change = 1 if hpexp1 == "Increase by 1%-4.9%" | hpexp1 == "Increase bt 10%-20%" | hpexp1 == "Increase by 5%-9.9%" | hpexp1 == "Increase by more than 20%" // increase
replace home_price_change = 0 if hpexp1 == "No change"

qui reg home_price_change z_p_wealth z_income_disHH $cfef, cl (id)
qui margins, at(z_p_wealth = (-1 0 1 2 3 4 5 6 )) post
marginsplot, xtitle("Property Wealth")
graph export "$output/figd5.pdf",  replace

